<%

'------
Set objConnection = Server.CreateObject("ADODB.Connection") 
objConnection.Open "DRIVER={SQL Server};SERVER=UTI-P1-PC27\SS2008R2ESP;UID=sa;PWD=ss26784$;DATABASE=viaspoaesp"
strSql = "SELECT fun_id, fun_nombre FROM [Funcionario] WHERE fun_id = ?;" 
' :)
set objCommand = Server.CreateObject("ADODB.Command") 
objCommand.ActiveConnection = objConnection
strSql1 = "INSERT INTO Cargo (car_id, car_depende, car_cargo, car_estado, car_jerarquia, car_sueldo) values(?,?,?,?,?,?);" 
objCommand.CommandText = strSql1 
objCommand.Parameters(0).value = 20 
objCommand.Parameters(1).value = 1
objCommand.Parameters(2).value = "test2"
objCommand.Parameters(3).value = 1
objCommand.Parameters(4).value = 1
objCommand.Parameters(5).value = 194

Set objSearchResults = objCommand.Execute()  
'response.Write(objSearchResults("fun_nombre"))
%>
                                    